{$CLEO .csa}

//-------------MAIN---------------
0000: NOP

1@ = 1352.210
2@ = -652.817
3@ = 108.765
4@ = 1353.972
5@ = -657.833
6@ = 108.2
7@ = 200.0

:BEGIN
wait 0
if
   Player.Defined($PLAYER_CHAR)
jf @BEGIN

:NEAR
wait 0
00EC:   actor $PLAYER_ACTOR 0 near_point 1@ 2@ radius 100.0 100.0
else_jump @NEAR
 
07FB: set_interior 'SVSFBG' access 0 // Safe House
07FB: set_interior 'STAHL' access 0

:BOUGHT
wait 0
if
09D1:   pickup $3083 created
jf @ACCESS
jump @BOUGHT

:ACCESS
wait 0
07FB: set_interior 'STAHL' access 1
07FB: set_interior 'SVSFBG' access 1 // Safe House
 
:SAVING
wait 0
if
  $ONMISSION == 0
jf @SAVING
0A95: enable_thread_saving

0@ = Pickup.Create(1277, 3, 1@, 2@, 3@)

:PICKUP
wait 0
if
0214:   pickup 0@ picked_up
jf @PICKUP
 
00A1: put_actor $PLAYER_ACTOR at 4@ 5@ 6@
0173: set_actor $PLAYER_ACTOR Z_angle_to 7@
01B4: set_player $PLAYER_CHAR can_move 0
03D8: show_save_screen
01B4: set_player $PLAYER_CHAR can_move 1
wait 750
jump @SAVING